home *** CD-ROM | disk | FTP | other *** search
/ Power Programmierung / Power-Programmierung (Tewi)(1994).iso / magazine / ins_msb / 9005 / test.bas < prev    next >
BASIC Source File  |  1990-05-01  |  400b  |  20 lines
  1. 'PROGRAM - TEST.BAS
  2.  
  3. ' Demonstrate effect of literal strings on DGROUP
  4.     
  5. DEFINT A-Z
  6. DIM Array$(10)
  7.  
  8. PRINT "Free string space before:";FRE(Array$(1))
  9. PRINT "STACK before            :";STACK
  10.  
  11. FOR I = 1 TO 10
  12.     READ Array$(I)
  13. NEXT
  14.  
  15. PRINT "Free string space after :";FRE(Array$(1))
  16. PRINT "STACK after             :";STACK
  17.  
  18. DATA One,Two,Three,Four,Five
  19. DATA Six,Seven,Eight,Nine,Ten
  20.